home *** CD-ROM | disk | FTP | other *** search
/ Internet Tools (InfoMagic) / Internet Tools.iso / mail / vm / diff / diff5.73-5.74
Lisp/Scheme  |  1995-04-24  |  10KB  |  270 lines
  1. *** dist/vm-edit.el.dist    Fri Apr  7 10:48:34 1995
  2. --- vm-edit.el    Mon Apr 24 01:01:44 1995
  3. ***************
  4. *** 116,117 ****
  5. --- 116,120 ----
  6.         (fillarray (vm-cache-of m) nil)
  7. +       (vm-set-vheaders-of m nil)
  8. +       (vm-set-vheaders-regexp-of m nil)
  9. +       (vm-set-text-of m nil)
  10.         (if vm-thread-obarray
  11. ***************
  12. *** 129,133 ****
  13.           (setq v-list (cdr v-list)))))
  14. -       (vm-set-vheaders-of m nil)
  15. -       (vm-set-vheaders-regexp-of m nil)
  16. -       (vm-set-text-of m nil)
  17.         (vm-mark-for-summary-update m)
  18. --- 132,133 ----
  19. *** dist/vm-folder.el.dist    Fri Apr  7 10:48:35 1995
  20. --- vm-folder.el    Sun Apr 23 23:15:38 1995
  21. ***************
  22. *** 727,731 ****
  23.             (string-to-int (vm-matched-header-contents)))
  24. !         (if (and (search-forward "\n\n" nil 0)
  25. !              (>= (- (point-max) (point)) content-length))
  26. !         (forward-char content-length))
  27.           ;; Some systems seem to add a trailing newline that's
  28. --- 727,734 ----
  29.             (string-to-int (vm-matched-header-contents)))
  30. !         ;; if search fails, we'll be at point-max
  31. !         ;; if specified content-length is too long, go to point-max
  32. !         (if (search-forward "\n\n" nil 0)
  33. !         (if (>= (- (point-max) (point)) content-length)
  34. !             (forward-char content-length)
  35. !           (goto-char (point-max))))
  36.           ;; Some systems seem to add a trailing newline that's
  37. ***************
  38. *** 733,742 ****
  39.           ;; any number of them to avoid trouble.
  40. !         (skip-chars-forward "\n")
  41. !         (if (or (eobp)
  42. !             (if (looking-at reg1)
  43. !             (progn (goto-char (match-beginning 0)) t)
  44. !               nil ))
  45. !         t
  46. !           nil ))
  47. !     nil )))
  48.      ((eq vm-folder-type 'mmdf)
  49. --- 736,741 ----
  50.           ;; any number of them to avoid trouble.
  51. !         (skip-chars-forward "\n")))
  52. !       (if (or (eobp) (looking-at reg1))
  53. !       nil
  54. !     (re-search-forward reg1 nil 0))))
  55.      ((eq vm-folder-type 'mmdf)
  56. ***************
  57. *** 757,759 ****
  58.      ((eq vm-folder-type 'mmdf)
  59. !     (forward-char 5))
  60.      ((eq vm-folder-type 'babyl)
  61. --- 756,766 ----
  62.      ((eq vm-folder-type 'mmdf)
  63. !     (forward-char 5)
  64. !     ;; skip >From.  Either SCO's MMDF implementation leaves this
  65. !     ;; stuff in the message, or many sysadmins have screwed up
  66. !     ;; their mail configuration.  Either way I'm tired of getting
  67. !     ;; bug reports about it.
  68. !     (let ((reg1 "^>From ")
  69. !       (case-fold-search nil))
  70. !       (while (looking-at reg1)
  71. !     (forward-line 1))))
  72.      ((eq vm-folder-type 'babyl)
  73. *** dist/vm-motion.el.dist    Tue Apr 12 17:21:08 1994
  74. --- vm-motion.el    Fri Apr 21 19:00:45 1995
  75. ***************
  76. *** 338,352 ****
  77.             '(vm-next-message-same-subject))
  78. !   (condition-case ()
  79. !       (let ((oldmp vm-message-pointer)
  80. !         (done nil)
  81. !         (subject (vm-so-sortable-subject (car vm-message-pointer))))
  82. !     (while (not done)
  83. !       (vm-move-message-pointer 'forward)
  84. !       (if (eq oldmp vm-message-pointer)
  85. !           (signal 'end-of-folder nil))
  86. !       (if (equal subject (vm-so-sortable-subject (car vm-message-pointer)))
  87. !           (setq done t)))
  88. !     (vm-record-and-change-message-pointer oldmp vm-message-pointer)
  89. !     (vm-preview-current-message))
  90. !     (end-of-folder (message "No next message with the same subject"))))
  91.   
  92. --- 338,356 ----
  93.             '(vm-next-message-same-subject))
  94. !   (let ((oldmp vm-message-pointer)
  95. !     (done nil)
  96. !     (subject (vm-so-sortable-subject (car vm-message-pointer))))
  97. !     (condition-case ()
  98. !     (progn
  99. !       (while (not done)
  100. !         (vm-move-message-pointer 'forward)
  101. !         (if (eq oldmp vm-message-pointer)
  102. !         (signal 'end-of-folder nil))
  103. !         (if (equal subject
  104. !                (vm-so-sortable-subject (car vm-message-pointer)))
  105. !         (setq done t)))
  106. !       (vm-record-and-change-message-pointer oldmp vm-message-pointer)
  107. !       (vm-preview-current-message))
  108. !       (end-of-folder
  109. !        (setq vm-message-pointer oldmp)
  110. !        (message "No next message with the same subject")))))
  111.   
  112. ***************
  113. *** 363,378 ****
  114.             '(vm-previous-message-same-subject))
  115. !   (condition-case ()
  116. !       (let ((oldmp vm-message-pointer)
  117. !         (done nil)
  118. !         (subject (vm-so-sortable-subject (car vm-message-pointer))))
  119. !     (while (not done)
  120. !       (vm-move-message-pointer 'backward)
  121. !       (if (eq oldmp vm-message-pointer)
  122. !           (signal 'beginning-of-folder nil))
  123. !       (if (equal subject (vm-so-sortable-subject (car vm-message-pointer)))
  124. !           (setq done t)))
  125. !     (vm-record-and-change-message-pointer oldmp vm-message-pointer)
  126. !     (vm-preview-current-message))
  127. !     (beginning-of-folder
  128. !      (message "No previous message with the same subject"))))
  129.   
  130. --- 367,385 ----
  131.             '(vm-previous-message-same-subject))
  132. !   (let ((oldmp vm-message-pointer)
  133. !     (done nil)
  134. !     (subject (vm-so-sortable-subject (car vm-message-pointer))))
  135. !     (condition-case ()
  136. !     (progn
  137. !       (while (not done)
  138. !         (vm-move-message-pointer 'backward)
  139. !         (if (eq oldmp vm-message-pointer)
  140. !         (signal 'beginning-of-folder nil))
  141. !         (if (equal subject
  142. !                (vm-so-sortable-subject (car vm-message-pointer)))
  143. !         (setq done t)))
  144. !       (vm-record-and-change-message-pointer oldmp vm-message-pointer)
  145. !       (vm-preview-current-message))
  146. !       (beginning-of-folder
  147. !        (setq vm-message-pointer oldmp)
  148. !        (message "No previous message with the same subject")))))
  149.   
  150. *** dist/vm-reply.el.dist    Fri Apr  7 10:48:35 1995
  151. --- vm-reply.el    Tue Apr 18 17:05:35 1995
  152. ***************
  153. *** 737,739 ****
  154.       ;; unwritable directories.
  155. !     (setq default-directory (or vm-folder-directory (expand-file-name "~")))
  156.       (mail-mode)
  157. --- 737,739 ----
  158.       ;; unwritable directories.
  159. !     (setq default-directory (or vm-folder-directory (expand-file-name "~/")))
  160.       (mail-mode)
  161. *** dist/vm-summary.el.dist    Fri Apr  7 10:48:36 1995
  162. --- vm-summary.el    Fri Apr 21 15:17:28 1995
  163. ***************
  164. *** 748,750 ****
  165.                ("makke@wins.uia.ac.be (Marc.Gemis)" .
  166. !               ("Marc Gemis" "makke@wins.uia.ac.be"))))
  167.       (failed nil)
  168. --- 748,751 ----
  169.                ("makke@wins.uia.ac.be (Marc.Gemis)" .
  170. !               ("Marc Gemis" "makke@wins.uia.ac.be"))
  171. !              ("" . (nil nil))))
  172.       (failed nil)
  173. *** dist/vm-vars.el.dist    Fri Apr  7 10:48:36 1995
  174. --- vm-vars.el    Fri Apr 21 17:43:10 1995
  175. ***************
  176. *** 1291,1293 ****
  177.   vm-get-new-mail, or from a digest with vm-burst-digest.  When the
  178. ! hooks are run, the new messages will have already been aded to
  179.   the message list but may not yet appear in the summary.  When the
  180. --- 1291,1293 ----
  181.   vm-get-new-mail, or from a digest with vm-burst-digest.  When the
  182. ! hooks are run, the new messages will have already been added to
  183.   the message list but may not yet appear in the summary.  When the
  184. ***************
  185. *** 1345,1348 ****
  186.     "*List of hook functions called just after VM has retrieved
  187. ! a group of messages from your system mailbox(es).  WHen these
  188. ! hooks are run, the message have been added to the folder buffer
  189.   but not the message list or summary.  When the hooks are run, the
  190. --- 1345,1348 ----
  191.     "*List of hook functions called just after VM has retrieved
  192. ! a group of messages from your system mailbox(es).  When these
  193. ! hooks are run, the messages have been added to the folder buffer
  194.   but not the message list or summary.  When the hooks are run, the
  195. *** dist/vm-version.el.dist    Fri Apr  7 10:48:36 1995
  196. --- vm-version.el    Mon Apr 17 10:36:12 1995
  197. ***************
  198. *** 2,4 ****
  199.   
  200. ! (defconst vm-version "5.73 (beta)"
  201.     "Version number of VM.")
  202. --- 2,4 ----
  203.   
  204. ! (defconst vm-version "5.74 (beta)"
  205.     "Version number of VM.")
  206. *** dist/vm-window.el.dist    Fri Apr  7 10:48:36 1995
  207. --- vm-window.el    Fri Apr 21 17:43:11 1995
  208. ***************
  209. *** 198,200 ****
  210.     ;; the current window configuration is and not rebuild the
  211. !   ;; configuration for teh next commanmd if it matches what we
  212.     ;; have recorded.
  213. --- 198,200 ----
  214.     ;; the current window configuration is and not rebuild the
  215. !   ;; configuration for the next command if it matches what we
  216.     ;; have recorded.
  217. *** dist/tapestry.el.dist    Fri Apr  7 10:48:37 1995
  218. --- tapestry.el    Thu Apr 20 17:21:58 1995
  219. ***************
  220. *** 22,24 ****
  221.   
  222. ! (defvar tapestry-version "1.06")
  223.   
  224. --- 22,24 ----
  225.   
  226. ! (defvar tapestry-version "1.07")
  227.   
  228. ***************
  229. *** 464,466 ****
  230.         (while (or (not (= 0 (car (setq edges (tapestry-window-edges w)))))
  231. !          ;; <= instead of = because in FSF Emacs 19.2x
  232.            ;; (whenever the Lucid menubar code was added) the
  233. --- 464,466 ----
  234.         (while (or (not (= 0 (car (setq edges (tapestry-window-edges w)))))
  235. !          ;; >= instead of = because in FSF Emacs 19.2x
  236.            ;; (whenever the Lucid menubar code was added) the
  237. ***************
  238. *** 470,472 ****
  239.            ;; window.
  240. !          (not (<= top (nth 1 edges))))
  241.       (setq w (next-window w 'nomini)))
  242. --- 470,472 ----
  243.            ;; window.
  244. !          (not (>= top (nth 1 edges))))
  245.       (setq w (next-window w 'nomini)))
  246. *** dist/make-autoloads.dist    Wed Apr  6 23:38:48 1994
  247. --- make-autoloads    Mon Apr 24 00:46:28 1995
  248. ***************
  249. *** 13,16 ****
  250.       sexp function doc interactive macro)
  251.       (while files
  252. !       (set-buffer (find-file-noselect (car files)))
  253.         (goto-char (point-min))
  254. --- 13,17 ----
  255.       sexp function doc interactive macro)
  256. +     (setq expanded-files (mapcar (function expand-file-name) files))
  257.       (while files
  258. !       (set-buffer (find-file-noselect (car expanded-files)))
  259.         (goto-char (point-min))
  260. ***************
  261. *** 44,46 ****
  262.         (kill-buffer (current-buffer))
  263. !       (setq files (cdr files))))
  264.     (kill-emacs))
  265. --- 45,48 ----
  266.         (kill-buffer (current-buffer))
  267. !       (setq files (cdr files)
  268. !         expanded-files (cdr expanded-files))))
  269.     (kill-emacs))
  270.